﻿Public Class BtnExit
    Inherits Windows.Forms.Button
    Dim NColor As Color = Color.FromArgb(185, 18, 27)
    Dim HColor As Color = Color.FromArgb(76, 27, 27)
    Dim Pcolor As Color = Color.FromArgb(0, 47, 47)
    Public Sub New()
        Me.Size = New System.Drawing.Point(90, 25)
        Me.FlatStyle = Windows.Forms.FlatStyle.Flat
        Me.BackColor = NColor
        Me.Font = New System.Drawing.Font("Tahoma", 9.01, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.ForeColor = Drawing.Color.White
        Me.FlatAppearance.BorderSize = 0
        InitializeComponent()

    End Sub

    Private Sub Me_MouseButton_P(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        Me.BackColor = Pcolor
    End Sub

    Private Sub Me_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
        Me.BackColor = HColor
    End Sub

    Private Sub EAMBB_Button_H(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseHover
        Me.backcolor = Hcolor
    End Sub

    Private Sub EAMBB_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
        Me.backcolor = Ncolor
    End Sub

    Private Sub EAMBB_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        Me.backcolor = Hcolor
    End Sub

    Private Sub EAMBB_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        Me.backcolor = Ncolor
    End Sub
End Class
